home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dspdbd.arc / DSPDBD.PRT < prev    next >
Text File  |  1991-12-04  |  3KB  |  60 lines

  1.      A                                      INDARA
  2.      A                                      REF(QAFDMBR)
  3.      A          R HEADER                     SKIPB(02)
  4.      A            PGMNAM        10         4
  5.      A                                    16 DATE EDTCDE(Y)
  6.      A                                    25 TIME EDTWRD('  :  :  ')
  7.      A                                    56'Database Directory'
  8.      A                                   112'Page -'
  9.      A            PAGE           4  0    119
  10.      A                                       SPACEA(1)
  11.      A                                     5'Library -'
  12.      A            MBLIB     R             15
  13.      A                                    34'Selection:'
  14.      A            FILIB         21        45
  15.      A                                      SPACEA(1)
  16.      A                                    49'--- Creation ----'
  17.      A                                    67'---- Changed ----'
  18.      A                                    85'----- Saved -----'
  19.      A                                      SPACEA(1)
  20.      A                                     5'File/Member'
  21.      A                                    21'Active'
  22.      A                                    31'Deleted'
  23.      A                                    41'Len KYL '
  24.      A                                    51'Date'
  25.      A                                    60'Time'
  26.      A                                    69'Date'
  27.      A                                    78'Time'
  28.      A                                    87'Date'
  29.      A                                    96'Time'
  30.      A                                   102'Accpth'
  31.      A                                   109'Text Description'
  32.      A                                       SPACEA(1)
  33.      A          R DETAIL1
  34.      A            FILE      R+   1         5 REFFLD(MBFILE)
  35.      A            MBNRCD    R             17
  36.      A                                      EDTCDE(Z)
  37.      A            MBNDTR    R             28
  38.      A                                      EDTCDE(Z)
  39.      A            MBMXRL    R             39
  40.      A                                      EDTCDE(Z)
  41.      A            MBMXKL    R             45
  42.      A                                      EDTCDE(Z)
  43.      A            CRTDAT         6  0     49
  44.      A                                      EDTCDE(Y)
  45.      A            CRTTIM         6  0     58
  46.      A                                      EDTWRD('  :  :  ')
  47.      A            CHGDAT         6  0     67
  48.      A                                      EDTCDE(Y)
  49.      A            CHGTIM         6  0     76
  50.      A                                      EDTWRD('  :  :  ')
  51.      A            SAVDAT         6  0     85
  52.      A                                      EDTCDE(Y)
  53.      A            SAVTIM         6  0     94
  54.      A                                      EDTWRD('  :  :  ')
  55.      A            MBACCP    R            103
  56.      A            MBISMT    R            105
  57.      A            MBISRV    R            107
  58.      A            TEXT          24       109
  59.      A                                       SPACEA(1)
  60.